Решение:

Код макроса может быть, например, таким:

Public Sub InsertCopyRight()

Dim oSlide As Slide

Dim oShape As Shape

'Проходим циклом по всем слайдам в презентации

For Each oSlide In Application.ActivePresentation.Slides

'Для каждого слайда создаем надпись (в виде объекта Shape)

'Нужные значения для числовых параметров Left , Top , Width и Height находим

'подбором или через макрорекордер

Set oShape = oSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, 500, 510, 210, 40)

'Доступ к тексту - через вложенные объекты TextFrame и TextRange

oShape.TextFrame.TextRange.Text = Chr(169) & " Академия специальных курсов, 2006"

'Занимаемся украшательством

oShape.TextFrame.TextRange.Font.Size = 12

oShape.TextFrame.TextRange.Font.Bold = msoTrue

Next

End Sub

Получить этот учебник в формате PDF (Acrobat Reader) или DOC (Microsoft Word)